home *** CD-ROM | disk | FTP | other *** search
/ PC Advisor 2007 June / PC Advisor 2007 June.iso / GTours / Saturnian rings.gt5 < prev    next >
Encoding:
Text File  |  2003-08-13  |  2.8 KB  |  96 lines
  1. OpenWorkspace "Sat_ring.ws5"
  2. Set wnd = getWindow(1)
  3. Set Camera = wnd.camera
  4. Set theTime = camera.time
  5. Set Direction = camera.Direction
  6. Set Location = camera.Location
  7. '---- end standard prologue'
  8. theTime.wnd.left = Screen.width
  9. wnd.MDIWindow.State = SW_MAXIMIZE
  10.  
  11. set pl =PlayerWindow
  12. 'pl.top=450
  13. 'pl.left=600
  14. pl.top=Screen.height-150
  15. pl.left=Screen.width-200
  16.  
  17.  theTime.step = 0.500000000000E+000
  18.  Set obj_l = Location.CentralObject
  19.  set obj_d=Direction.Object
  20. set wnd1 = CreateTextWindow
  21. wnd1.LoadFile "Sat_ring.html"
  22. wnd1.Locate 0,0,450,115
  23. wnd1.Show
  24. settimemark
  25.  Direction.Zoom = 1.00000000000000E+001 : UpdateWindows
  26.  Direction.Zoom = 5.00000000000000E+001 : UpdateWindows
  27. pause 1000
  28.  Direction.Zoom = 1.00000000000000E+002 : UpdateWindows
  29.  Direction.Zoom = 2.00000000000000E+002 : UpdateWindows
  30. pause 1000
  31.  Direction.Zoom = 3.00000000000000E+002 : UpdateWindows
  32.  Direction.Zoom = 4.00000000000000E+002 : UpdateWindows
  33. pause 1000
  34.  Direction.Zoom = 5.00000000000000E+002 : UpdateWindows
  35.  Direction.Zoom = 6.00000000000000E+002 : UpdateWindows
  36. pause 1000
  37.  Direction.Zoom = 7.00000000000000E+002 : UpdateWindows
  38.  Direction.Zoom = 8.00000000000000E+002 : UpdateWindows
  39.  Direction.Zoom = 9.00000000000000E+002 : UpdateWindows
  40.  Direction.Zoom = 1.00000000000000E+003 : UpdateWindows
  41. pause 1000
  42.  Direction.Zoom = 1.10000000000000E+003 : UpdateWindows
  43.  Direction.Zoom = 1.20000000000000E+003 : UpdateWindows
  44.  Direction.Zoom = 1.40000000000000E+003 : UpdateWindows
  45. pause 1000
  46.  Direction.Zoom = 1.60000000000000E+003 : UpdateWindows
  47.  Direction.Zoom = 1.80000000000000E+003 : UpdateWindows
  48.  Direction.Zoom = 2.00000000000000E+003 : UpdateWindows
  49. pause 1000
  50.  Direction.Zoom = 2.20000000000000E+003 : UpdateWindows
  51.  Direction.Zoom = 2.40000000000000E+003 : UpdateWindows
  52.  pause 3000
  53. waitfortime 11000
  54.  wnd1.LoadFile "Sat_ring1.html"
  55.  wnd1.Locate 0,0,450,115
  56.  theTime.wnd.left = Screen.width-theTime.wnd.width-5
  57.  theTime.Forward
  58.  WaitFrames 21
  59.  theTime.Stop
  60.  pause 2000
  61.  theTime.Forward
  62.  WaitFrames 21
  63.  theTime.Stop
  64.  pause 2000
  65.  theTime.Forward
  66.  WaitFrames 21
  67.  theTime.Stop
  68.  pause 2000
  69.  theTime.Forward
  70.  WaitFrames 21
  71.  theTime.Stop
  72.  pause 2000
  73. waitfortime 15000
  74.  theTime.wnd.left = Screen.width
  75.  wnd1.LoadFile "Sat_ring2.html"
  76.  wnd1.Locate 0,0,450,100
  77.  Direction.Zoom = 1.00000000000000E+000 : UpdateWindows
  78.  obj_l.ObjectType=&H706C6E74
  79.  obj_l.ObjectID = 6
  80.  Location.SetLocParams 3, 0, 0 
  81.  Location.CentralObject=obj_l
  82.  Location.LatStepUnits = 0
  83.  Location.StepLattitude = 1.74532925199428E-001
  84.  Location.LonStepUnits = 0
  85.  Location.StepLongitude = 1.74532925199428E-001
  86.  Location.ForwardLon
  87.  WaitFrames 50
  88.  Location.StopLongitude
  89.  Location.ForwardLat
  90.  WaitFrames 6
  91.  Location.StopLattitude
  92. waitfortime 9000
  93.  wnd1.Close
  94. ' end recording
  95.  
  96.